inst/shiny/som/history/mod_summary v01.R

In erblast/oetteR: Collection of personal R functions

require(shiny)
require(tidyverse)


mod_summary_ui = function(rea_clean){
  
  shiny::tagList(
    
      h4('Sample View (100 random observations)')
      , DT::renderDataTable( options = list( pageLength = 5)
                           
         ,{
           
           d_clean = rea_clean() 
           
           validate( need(!is.null(d_clean$data), 'Press LOAD DATA and CLEAN DATA') )

           data  = d_clean$data %>%
             sample_n(100)
           
           all_variables = d_clean$all_variables
           
           return( data[ ,all_variables] )
         })
      
    ,h4('Numerics')
  
    ,renderPrint({
      
      d_clean = rea_clean()
      
      data          = d_clean$data
      numericals    = d_clean$numericals
      
      print(summary( data[, numericals]))
    })
    
    ,h4('Categoricals')
    
    , renderPrint({
      
      d_clean = rea_clean()
      
      data          = d_clean$data
      categoricals    = d_clean$categoricals
      
      print(summary( data[, categoricals]))
    })
    
    ,h4('Missing Values')
    
    , renderPlot({
      
      d_clean = rea_clean()
      
      data             = d_clean$data
      all_variables    = d_clean$all_variables
      
      p = Amelia::missmap( as_data_frame(data)[, all_variables])
      
      return(p)
    })
    
  
  )
}